home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 1
/
Cream of the Crop 1.iso
/
PROGRAM
/
VS_804.ARJ
/
MAINTSRC.EXE
/
S_PICKFL.PRG
< prev
Wrap
Text File
|
1991-11-25
|
2KB
|
65 lines
* Filename.......: S_PICKFL.PRG
*
* Author.........: Vernon E. Six, Jr.
*
* Last Update....: Mon 11/25/91 16:37:22
*
* Created using..: VSG - Vern Six's Get System v1.00.53a
*
* Notice.........: CopyRight (c) 1991 by Vernon E. Six, Jr.
* All Rights Reserved World Wide!
#include "INKEY.CH"
FUNCTION S_PICKFLD(pc_Title,pc_FootNote)
*══════════════════════════════════════════════════════════*
* Select a FIELD *
*══════════════════════════════════════════════════════════*
LOCAL n_Top := 5
LOCAL n_Left := 5
LOCAL n_Bottom := 20
LOCAL n_Right := 76
LOCAL c_Title := IF(pc_Title=NIL," Which Field? ",pc_Title)
LOCAL c_FootNote := IF(pc_FootNote=NIL," Press <F1> For Help ",pc_FootNote)
LOCAL n_Palette := 5
LOCAL a_ColObjs := {}
LOCAL n_Key := 0
LOCAL c_OldHelp := ""
LOCAL c_RetVal
LOCAL ab_KeyBlocks := {}
LOCAL an_Keys := {}
_DICTFLD->( VS_SetOrder("1") )
AADD(a_ColObjs, TBColumnNew( "### Field Name T Size Description", {||L_DictFld()}) )
DO WHILE .T.
c_OldHelp = VS_HelpPrg( "S_PICKFLD" )
n_Key = _DICTFLD->(VS_Browse(n_Top,n_Left,n_Bottom,n_Right,c_Title,;
c_FootNote, n_Palette, a_ColObjs, _DICTHDR->DBF_NAME,{|x|ALLTRIM(x) == ALLTRIM(_DICTFLD->DBF_NAME)}, ab_KeyBlocks, an_Keys ) )
VS_HelpPrg( c_OldHelp )
DO CASE
CASE n_Key = K_ESC
c_RetVal = ""
EXIT
CASE n_Key = K_ENTER
c_RetVal = _DICTFLD->FIELD_NAME
EXIT
ENDCASE
ENDDO
RETURN(c_RetVal)
*══ EOF: S_PICKFLD() ═════════════════════════════════════════════════════════*